home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD016a.dsk / PAL.60419.BABICK.DEC.82.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  6KB  |  81 lines
  1. 5  HOME : VTAB 2
  2. 10  PRINT "  FOR THOSE OF YOU WHO DO NOT MIND OPEN-                                        ING YOUR DISK DRIVES, HERE IS A WAY TO                                          CHECK AND ADJUST THE SPEED OF YOUR DRIVE"
  3. 20  PRINT " THIS METHOD WILL WORK FOR THE APPLE AND                                        THE QUENTIN DRIVES AND PROBABLY FOR A                                           VARIETY OF OTHER MAKES."
  4. 25  PRINT 
  5. 30  PRINT "FIRST YOU WILL NEED A FEW TOOLS.A SMALL                                         FLAT AND A PHILLIPS SCREWDRIVER."
  6. 32  PRINT : PRINT "ALSO NEEDED IS A TIMING LIGHT WHICH CON-                                        SISTS OF A NEON BULB AND A ONE MEG-OHM                                                             RESISTOR."
  7. 35  PRINT 
  8. 40  INPUT "WOULD YOU LIKE A SCHEMATIC OF THE CIRCUTFOR A TIMING LIGHT ? IF YES PRESS < Y >";Y$
  9. 45  IF Y$ = "Y"  THEN  GOSUB 1000
  10. 46  IF Y$ < >"Y"  THEN 49
  11. 49  HOME 
  12. 50  HTAB 3: PRINT "BEFORE WE DO ANY THING ELSE TURN THE                                            POWER TO THE COMPUTER OFF."
  13. 55  PRINT 
  14. 59  PRINT "IF YOU ARE USING AN APPLE DRIVE, REMOVE                                         THE FOUR PHILLIPS SCREWS FROM THE BOTTOM                                        WHICH IS SECURING THE TOP COVER."
  15. 60  PRINT : PRINT : PRINT 
  16. 61  PRINT "NEXT YOU WILL FIND FOUR MORE PHILLIPS                                           SCREWS. REMOVE THESE TO GAIN ACCESS TO                                          THE BOTTOM OF THE DRIVE."
  17. 64  PRINT : PRINT : PRINT 
  18. 65  INPUT "PRESS RETURN WHEN READY TO CONTINUE ";Y$
  19. 66  IF Y$ = ""  THEN 69
  20. 69  HOME : VTAB 4
  21. 70  PRINT "TURN THE DRIVE UPSIDE DOWN AND YOU WILL                                         NOTICE A LARGE FLYWHEEL WITH A DECAL                                            STUCK ON IT WITH TWO RINGS OF NUMBERS,"
  22. 71  PRINT 
  23. 72  PRINT "AND EVENLY SPACED LINES.    WE WILL BE                                          USING THE RING MARKED '60' ."
  24. 75  PRINT 
  25. 80  PRINT "TURN THE POWER FOR THE COMPUTER ON AND                                          NOTICE THAT THE FLYWHEEL IS NOW ROTATING                                        PLUG IN YOUR TEST LIGHT AND BRING IT"
  26. 81  PRINT : PRINT "CLOSE ENOUGH TO THE FLYWHEEL SO THAT THE                                        '60' LINES APPEAR TO BE MOVING SLOWLY."
  27. 85  PRINT : PRINT : PRINT 
  28. 87  INPUT "PRESS RETURN TO CONTINUE ";Y$
  29. 89  IF Y$ = ""  THEN  HOME 
  30. 90  PRINT "IF THE LINES APPEAR TO BE MOTIONLESS YOU                                        ARE FINISHED AND MAY REASSEMBLE YOUR                                            DRIVE AFTER YOU TURN THE POWER OFF !"
  31. 91  PRINT 
  32. 100  PRINT "   IF THE LINES APPEAR TO BE MOVING IN                                          EITHER DIRECTION, ADJUST THE SMALL TRIM                                         POTENTIOMETER LOCATED NEAR THE REAR OF"
  33. 101  PRINT : PRINT " THE DRIVE."
  34. 105  PRINT : PRINT 
  35. 110  PRINT "YOU WILL ONLY HAVE TO TURN THIS POT A                                           VERY SMALL DISTANCE TO MAKE THE LINES                                           STOP MOVING ALTOGETHER."
  36. 114  PRINT : PRINT 
  37. 115  INPUT "PRESS RETURN TO CONTINUE. ";Y$
  38. 117  IF Y$ = ""  THEN  HOME 
  39. 120  PRINT "WHEN THIS IS DONE YOU MAY TURN THE POWER                                        OFF AND REASSEMBLE YOUR DRIVE, YOU ARE                                          FINISHED WITH THE CALIBRATION TEST."
  40. 125  PRINT 
  41. 130  PRINT "THIS PROCEDURE ALSO WORKS THE SAME WAY                                          FOR THE QUENTIN DRIVE, EXCEPT THERE ARE                                         ONLY FOUR PHILLIPS SCREWS TO REMOVE TO"
  42. 134  PRINT : PRINT "GAIN ACCESS TO THE FLYWHEEL. THE POT FOR                                        ADJUSTING THE SPEED ON THE QUENTIN IS R7"
  43. 135  PRINT : PRINT : PRINT : INPUT "PRESS RETURN TO CONTINUE. ";Y$
  44. 136  IF Y$ = ""  THEN  HOME :
  45. 140  PRINT "THIS METHOD OF CALIBRATING IS VERY QUICK                                        AND EFFECTIVE BECAUSE THE LINE FREQUECY                                         IS ALWAYS 60 CYCLES PER SECOND ."
  46. 145  PRINT : PRINT 
  47. 150  PRINT "I HOPE I HAVE BEEN OF SOME HELP TO A FEW                                        OF YOU BY KEEPING YOUR DRIVE SPEED AS                                           CLOSE AS POSSIBLE TO THE CORRECT SPEED,"
  48. 152  PRINT : PRINT "WHICH KEEPS YOUR INFORMATION ACCURATLY                                          ON YOUR DISK !"
  49. 154  PRINT : PRINT : PRINT : PRINT 
  50. 155  INPUT "PRESS RETURN TO CONTINUE ";Y$
  51. 157  IF Y$ = ""  THEN 159
  52. 158  IF Y$ < >""  THEN 155
  53. 159  HOME : VTAB 4
  54. 160  PRINT "IF ANYONE HAS ANY INFORMATION ON THE                                            CALIBRATION OF THE READ / WRITE HEAD I                                          WOULD APPRECIATE HEARING FROM YOU."
  55. 170  PRINT : PRINT 
  56. 175  HTAB 10: FLASH : PRINT "HAPPY COMPUTING": NORMAL 
  57. 192  HTAB 10: PRINT "STEVEN M. BABICK"
  58. 194  HTAB 10: PRINT "14240 EVANS AVE."
  59. 196  HTAB 10: PRINT "DOLTON ILL. 60419"
  60. 199  FOR X = 1 TO 10000: NEXT X
  61. 200  PRINT  CHR$(4);"RUN PAL.MENU"
  62. 999  END 
  63. 1000  HOME : TEXT : HGR 
  64. 1010  HCOLOR= 1
  65. 1020  HPLOT 40,95 TO 50,105 TO 90,105 TO 95,100 TO 95,90 TO 90,85 TO 50,85 TO 40,95
  66. 1030  HPLOT 50,98 TO 90,98 TO 95,100 TO 240,100
  67. 1040  HPLOT 50,92 TO 90,92 TO 95,90 TO 140,90
  68. 1050  HPLOT 139,95 TO 139,85 TO 181,85 TO 181,95 TO 139,95
  69. 1055  HCOLOR= 1: HPLOT 180,90 TO 240,90
  70. 1060  HCOLOR= 3: HPLOT 240,89 TO 240,91 TO 242,91 TO 242,89
  71. 1070  HPLOT 240,99 TO 240,101 TO 242,101 TO 242,99
  72. 1075  HCOLOR= 3
  73. 1080  HPLOT 53,80 TO 53,70 TO 60,80 TO 60,70: HPLOT 73,80 TO 65,80 TO 65,70 TO 73,70: HPLOT 65,75 TO 71,75
  74. 1090  HPLOT 75,75 TO 80,75: HPLOT 85,70 TO 90,70 TO 90,75 TO 85,75 TO 85,80 TO 90,80
  75. 1100  HPLOT 135,70 TO 135,80: HPLOT 150,80 TO 150,70 TO 155,75 TO 160,70 TO 160,80: HPLOT 173,70 TO 165,70 TO 165,80 TO 173,80
  76. 1110  HPLOT 165,76 TO 171,75: HPLOT 190,70 TO 180,70 TO 180,80 TO 190,80 TO 190,76 TO 186,76
  77. 1120  HPLOT 230,70 TO 230,80: HPLOT 235,70 TO 235,80: HPLOT 240,70 TO 240,80 TO 245,80 TO 245,70 TO 240,70: HPLOT 250,70 TO 255,80 TO 260,70
  78. 1149  HTAB 4
  79. 1150  VTAB 21: PRINT "SCHEMATIC FOR DRIVE SPEED TESTER "
  80. 1160  INPUT "PRESS RETURN TO CONTINUE INSTRUCTIONS ";A$
  81. 1170  IF A$ = ""  THEN  TEXT : HOME : RETURN